home *** CD-ROM | disk | FTP | other *** search
- on doCreateScroll
- global topPointsToLine, dgDkBlueColor, dgYellowColor
- set maxLinesVisible to 10
- cursor(4)
- set bottom to topPointsToLine + maxLinesVisible
- put line topPointsToLine to bottom of field "masterNameList" into field "visNameList"
- if (the frameLabel = "Create") or (the frameLabel = "Index") then
- put line topPointsToLine to bottom of field "masterTypeList" into field "visTypeList"
- put line topPointsToLine to bottom of field "masterWidthList" into field "visWidthList"
- put line topPointsToLine to bottom of field "masterDecimalsList" into field "visDecimalsList"
- end if
- if the frameLabel = "Browse" then
- put line topPointsToLine to bottom of field "masterContentList" into field "visContentList"
- end if
- if topPointsToLine > 1 then
- set the castNum of sprite 9 to the number of member "scrollUpEnabled"
- else
- set the castNum of sprite 9 to the number of member "scrollUpDisabled"
- end if
- if (the number of lines in field "masterNameList" - topPointsToLine - 9) > 0 then
- set the castNum of sprite 10 to the number of member "scrollDownEnabled"
- else
- set the castNum of sprite 10 to the number of member "scrollDownDisabled"
- end if
- set the foreColor of member "visNameList" to dgYellowColor
- set the textFont of member "visNameList" to "Helvetica"
- set the textHeight of member "visNameList" to 16
- set the textSize of member "visNameList" to 12
- if (the frameLabel = "Create") or (the frameLabel = "Index") then
- set the foreColor of member "visTypeList" to dgYellowColor
- set the foreColor of member "visWidthList" to dgYellowColor
- set the foreColor of member "visDecimalsList" to dgYellowColor
- set the textFont of member "visTypeList" to "Helvetica"
- set the textFont of member "visWidthList" to "Helvetica"
- set the textFont of member "visDecimalsList" to "Helvetica"
- set the textHeight of member "visTypeList" to 16
- set the textHeight of member "visWidthList" to 16
- set the textHeight of member "visDecimalsList" to 16
- set the textSize of member "visTypeList" to 12
- set the textSize of member "visWidthList" to 12
- set the textSize of member "visDecimalsList" to 12
- end if
- if the frameLabel = "Browse" then
- set the foreColor of member "visContentList" to dgYellowColor
- set the textFont of member "visContentList" to "Helvetica"
- set the textHeight of member "visContentList" to 16
- set the textSize of member "visContentList" to 12
- end if
- updateStage()
- cursor(-1)
- end
-